object Form1: TForm1 Left = 265 Top = 107 HorzScrollBar.Visible = False VertScrollBar.Visible = False ActiveControl = TrackBar1 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'PryaSoft TransWin' ClientHeight = 148 ClientWidth = 225 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OldCreateOrder = False Position = poDesktopCenter OnClose = FormClose OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 8 Top = 8 Width = 62 Height = 13 Caption = 'Value: 255' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Image1: TImage Left = 16 Top = 64 Width = 32 Height = 32 AutoSize = True Center = True Picture.Data = {} Transparent = True OnMouseDown = Image1MouseDown OnMouseMove = Image1MouseMove OnMouseUp = Image1MouseUp end object Label2: TLabel Left = 16 Top = 104 Width = 190 Height = 39 Caption = 'Drag and drop the attach icon onto the '#13#10'window title you want t' + 'o be transparent. '#13#10'Apply transparentcy by the scrollbar.' end object Label3: TLabel Left = 56 Top = 64 Width = 91 Height = 13 Caption = 'Target Window:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object lblTarget: TLabel Left = 56 Top = 80 Width = 89 Height = 13 Caption = 'PryaSoft TransWin' Font.Charset = DEFAULT_CHARSET Font.Color = clBlue Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object TrackBar1: TTrackBar Left = 0 Top = 25 Width = 225 Height = 32 Max = 255 Orientation = trHorizontal Frequency = 15 Position = 255 SelEnd = 0 SelStart = 0 TabOrder = 0 TickMarks = tmBottomRight TickStyle = tsAuto OnChange = TrackBar1Change end object PopupMenu1: TPopupMenu Left = 192 Top = 64 object Show1: TMenuItem Caption = 'Show' OnClick = Show1Click end object Exit1: TMenuItem Caption = 'Exit' OnClick = Exit1Click end end end